home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / asciicr.prg < prev    next >
Encoding:
Text File  |  1986-09-20  |  1.6 KB  |  54 lines
  1. *** (ASCIICR.PRG)-JAY'S OFFICE SUPPLIES-DATA/BBS-619-291-5682
  2. *** Screen display all readable ASCII characters
  3. *** Textbook example of INKEY() function at program end
  4. *** Jay Kenney - San Diego,CA - Public domain 08/04/86
  5. CLEA
  6. SET STATUS OFF && (For dBaseIII PLUS only)
  7. SET SCOREBOARD OFF && (For dBaseIII PLUS only)
  8. @ 0,1 TO 23,79 DOUBLE && (For dBaseIII PLUS only)
  9. SET TALK OFF
  10. STORE 1 TO POS1
  11. STORE 5 TO POS2
  12. STORE 2 TO POS3
  13. STORE 5 TO POS4
  14. STORE 1 TO CHAR
  15. @ 0,32 SAY [ ASCII code value ]
  16. DO WHILE CHAR<255
  17.    @ POS1,POS2 SAY CHR(CHAR)
  18.    @ POS1+1,POS4 SAY LTRIM(STR(CHAR,3,0))
  19.    STORE CHAR+1 TO CHAR
  20.    STORE POS4+3 TO POS4
  21.    STORE POS2+3 TO POS2
  22.    IF POS2>74
  23.       STORE POS3+2 TO POS3
  24.       STORE POS1+2 TO POS1
  25.       STORE 5 TO POS2
  26.       STORE 5 TO POS4
  27.    ENDIF
  28. ENDDO
  29. @ 23,29 SAY ' Press any key to end...'
  30. *? Take out the * and this comment if not PLUS (leave the ?)
  31. *WAIT Take out the * and this comment if not PLUS (leave the WAIT)
  32. i=0 && (For dBaseIII PLUS only)
  33. STORE 1 TO REPEAT
  34. STORE 45 TO REPEAT2
  35. DO WHILE i=0 && (For dBaseIII PLUS only)
  36.    @ 24,36 SAY TIME() && (For dBaseIII PLUS only)
  37.    @ 24,REPEAT SAY CHR(2)
  38.    @ 24,REPEAT2 SAY CHR(1)
  39.    STORE REPEAT2+1 TO REPEAT2
  40.    STORE REPEAT+1 TO REPEAT
  41.    IF REPEAT=35
  42.       @ 24,0 CLEA
  43.       STORE 1 TO REPEAT
  44.    ENDIF
  45.    IF REPEAT2=79
  46.       @ 24,45 CLEA
  47.       STORE 45 TO REPEAT2
  48.    ENDIF
  49.    i=INKEY() && (For dBaseIII PLUS only)
  50. ENDDO
  51. SET TALK ON
  52. SET STATUS ON && (For dBaseIII PLUS only)
  53. SET SCOREBOARD ON && (For dBaseIII PLUS only)
  54.